home *** CD-ROM | disk | FTP | other *** search
/ Mac OS on the PowerPC Mic…rocessor - In Store Demo / Mac OS on the PowerPC Microprocessor.iso / MacOS / MacOS.dxr / 00117.ls < prev    next >
Encoding:
Text File  |  1996-05-13  |  575 b   |  24 lines
  1. on enterUserName thesprite
  2.   if paramCount() = 1 then
  3.     if thesprite = 39 then
  4.       mLogIn(objBookmark, "Cancel")
  5.       go(the frame + 1)
  6.     else
  7.       if thesprite = 40 then
  8.         mLogIn(objBookmark, the text of cast "LoginUserName")
  9.         go(the frame + 1)
  10.       end if
  11.     end if
  12.   else
  13.     if the key = RETURN then
  14.       mLogIn(objBookmark, the text of cast "LoginUserName")
  15.       go(the frame + 1)
  16.     else
  17.       if the key = ENTER then
  18.         mLogIn(objBookmark, the text of cast "LoginUserName")
  19.         go(the frame + 1)
  20.       end if
  21.     end if
  22.   end if
  23. end
  24.